(* This is a definition of structure SLP, constructors 
 * of it represent nodes in AST
 *) 
structure SLP = struct

type id = string
	  
datatype binop 
  = Plus | Minus | Times | Div
					
datatype stm 
  = CompoundStm of stm list
  | AssignStm of id * exp
  | PrintStm of exp list
     
and exp 
  = IdExp of id
  | NumExp of int
  | OpExp of exp * binop * exp
  | EseqExp of stm * exp

end
		
